home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / c / datelib.exe / MKDATSTR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-03-27  |  2.0 KB  |  75 lines
  1. static char mk_datestr_prog[] = "@(#)Datums-String aus Tagen,Monaten und Jahren zusammenbauen";
  2. static char mk_datestr_ver[]  = "@(#)v1.00/kr ; 13.04.91";
  3. /* Autor        Klaus Rath
  4. **
  5. ** Deklaration  char *mk_datestr(int tage,int monate, int jahre, int format);
  6. **
  7. */
  8.  
  9. #include <stdio.h>
  10. #include <string.h>
  11. #ifdef __TURBOC__
  12. #include <stdlib.h>
  13. #endif
  14. #include "datum.h"
  15.  
  16. char *mk_datestr(int tage, int monate, int jahre, int format)
  17. {
  18.     char datum[11];
  19.     char ts[3];
  20.     char ms[3];
  21.     char js[5];
  22.     char kurzj[3];
  23.  
  24.     sprintf(ts,"%02d",tage);
  25.     sprintf(ms,"%02d",monate);
  26.     sprintf(js,"%04d",jahre);
  27.     kurzj[0] = js[2];
  28.     kurzj[1] = js[3];
  29.     kurzj[2] = '\0';
  30.  
  31.     switch ( format ) {
  32.         case 1 :
  33.                  strcpy(datum,ts);
  34.                  strcat(datum,".");
  35.                  strcat(datum,ms);
  36.                  strcat(datum,".");
  37.                  strcat(datum,kurzj);
  38.                  break;
  39.         case 2 :
  40.                  strcpy(datum,ts);
  41.                  strcat(datum,".");
  42.                  strcat(datum,ms);
  43.                  strcat(datum,".");
  44.                  strcat(datum,js);
  45.                  break;
  46.         case 3 :
  47.                  strcpy(datum,ms);
  48.                  strcat(datum,"/");
  49.                  strcat(datum,ts);
  50.                  strcat(datum,"/");
  51.                  strcat(datum,kurzj);
  52.                  break;
  53.         case 4 :
  54.                  strcpy(datum,ms);
  55.                  strcat(datum,"/");
  56.                  strcat(datum,ts);
  57.                  strcat(datum,"/");
  58.                  strcat(datum,js);
  59.                  break;
  60.         case 5 :
  61.                  strcpy(datum,kurzj);
  62.                  strcat(datum,ms);
  63.                  strcat(datum,ts);
  64.                  break;
  65.         case 6 :
  66.                  strcpy(datum,js);
  67.                  strcat(datum,ms);
  68.                  strcat(datum,ts);
  69.                  break;
  70.         default: return((char *)NULL);
  71.     } /* ENDE: switch(format) */
  72.  
  73.     return(datum);
  74. } /* ENDE: mk_datestr() */
  75.